home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jigsaw / openfile.frm < prev    next >
Text File  |  1995-05-08  |  2KB  |  91 lines
  1. VERSION 2.00
  2. Begin Form OpenFile 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Open File"
  5.    ClientHeight    =   3540
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   4185
  9.    Height          =   3945
  10.    Icon            =   0
  11.    Left            =   1035
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3540
  17.    ScaleWidth      =   4185
  18.    Top             =   1140
  19.    Width           =   4305
  20.    Begin CommandButton Cmd_OK 
  21.       Caption         =   "OK"
  22.       Default         =   -1  'True
  23.       Height          =   375
  24.       Left            =   120
  25.       TabIndex        =   3
  26.       Top             =   3120
  27.       Width           =   3975
  28.    End
  29.    Begin DriveListBox Drive1 
  30.       Height          =   315
  31.       Left            =   120
  32.       TabIndex        =   2
  33.       Top             =   2760
  34.       Width           =   3975
  35.    End
  36.    Begin FileListBox File1 
  37.       Height          =   2565
  38.       Left            =   2160
  39.       Pattern         =   "*.bmp"
  40.       TabIndex        =   0
  41.       Top             =   120
  42.       Width           =   1935
  43.    End
  44.    Begin DirListBox Dir1 
  45.       Height          =   2535
  46.       Left            =   120
  47.       TabIndex        =   1
  48.       Top             =   120
  49.       Width           =   1935
  50.    End
  51. End
  52. Sub Cmd_OK_Click ()
  53.  
  54.     Hide
  55.  
  56. End Sub
  57.  
  58. Sub Dir1_Change ()
  59.  
  60.     ChDir Dir1.Path
  61.     File1.Path = Dir1.Path
  62.  
  63. End Sub
  64.  
  65. Sub Drive1_Change ()
  66.  
  67.     ChDrive Drive1.Drive
  68.     Dir1.Path = CurDir$
  69.  
  70. End Sub
  71.  
  72. Sub File1_DblClick ()
  73.  
  74.     Hide
  75.  
  76. End Sub
  77.  
  78. Sub Form_Load ()
  79.  
  80.     Remove_Items_From_Sysmenu OpenFile
  81.  
  82. End Sub
  83.  
  84. Sub Form_Unload (Cancel As Integer)
  85.  
  86.     Cancel = True
  87.     Hide
  88.  
  89. End Sub
  90.  
  91.